﻿
Imports osi.root.delegates

Namespace queue_runner
    Public Module _queue_runner_once
        Public Function once(ByVal d As Action) As Boolean
            Return Not d Is Nothing AndAlso
                   push_only(Function() As Boolean
                                 d()
                                 Return False
                             End Function)
        End Function

        Public Function once(ByVal d As void) As Boolean
            Return Not d Is Nothing AndAlso
                   push_only(Function() As Boolean
                                 d()
                                 Return False
                             End Function)
        End Function
    End Module
End Namespace
